home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / cli / mcommands-1.2.lha / Install / Install MCommands < prev    next >
Encoding:
Text File  |  1992-09-03  |  5.5 KB  |  243 lines
  1. ; Installer script for MCommands
  2. ; $VER: Install MCommands 37.3 (31.1.95)
  3.  
  4. (complete 0)
  5.  
  6. (set @default-dest "C:")
  7. (set @script-dest "S:Shell-Startup")
  8.  
  9. (set #comm-dir "/C/")
  10. (set #script-name "/S/RX-Startup")
  11.  
  12. ; ***************************************************************************
  13. ; English strings
  14.  
  15. (if (= @language "english")
  16.     (
  17.         (set #bad-kick
  18.             (cat "You must have AmigaDOS 2.04 or higher to use MCommands!"))
  19.  
  20.         (set #welcome
  21.             (cat "\nMCommands installation\n\n\n"
  22.            "This script installs MCommands 1.2\n"
  23.            "on your Amiga.\n\n\n\n"
  24.            "MCommands package is\n"
  25.            "Copyright © 1994-95 Michael Letowski\n"
  26.            "All rights reserved.\n\n"))
  27.  
  28.         (set #where-commands
  29.             (cat "Where should MCommands be installed?"))
  30.  
  31.         (set #where-help
  32.             (cat "\nBy default, all CLI commands are placed in C:"
  33.            " logical directory. Hovewer, the commands can be"
  34.            " placed in any directory, as long as it is added to"
  35.            " search path by using \"Path\" command.\n\n"))
  36.  
  37.         (set #script
  38.             (cat "Shall RXControl aliases be added to " @script-dest "?"))
  39.  
  40.         (set #script-help
  41.             (cat "\nTo make RXControl fully compatible with"
  42.            " default setup, aliases may be added to"
  43.            " your Shell-Startup file that emulate"
  44.            " commands from SYS:Rexxc directory."))
  45.  
  46.         (set #which-commands
  47.             (cat "Which MCommands should be installed?"))
  48.  
  49.         (set #which-commands-help
  50.             (cat "\n\n\"ChangeFont\" replaces topaz.font with user supplied one;"
  51.            "\n\n\"ClickStart\" enables/disables AmigaDOS features;"
  52.            "\n\n\"Examine\" checks type of file;"
  53.            "\n\n\"For\" executes a command for multiple arguments;"
  54.            "\n\n\"RXControl\" controls ARexx;"
  55.            "\n\n\"Time\" times command execution;"
  56.            "\n\n\"Touch\" changes date of file creation.\n\n\n"))
  57.     )
  58. )
  59.  
  60. ; ***************************************************************************
  61. ; Polish strings
  62.  
  63. (if (= @language "polski")
  64.     (
  65.         (set #bad-kick
  66.             (cat "Musisz posiadaê AmigaDOS w wersji 2.04 lub wyûszej aby uûyê pakietu!"))
  67.  
  68.         (set #welcome
  69.             (cat "\nInstalacja \"MCommands\"\n\n\n"
  70.            "Skrypt ten zainstaluje pakiet\n"
  71.            "\"MCommands\" w wersji 1.2\n"
  72.            "na twojej Amidze.\n\n\n\n"
  73.            "Pakiet \"MCommands\" jest\n"
  74.            "Copyright © 1994-95 Michaî Îëtowski\n"
  75.           "All rights reserved.\n\n"))
  76.  
  77.         (set #where-commands
  78.             (cat "Gdzie powinny zostaê zainstalowane rozkazy z pakietu?"))
  79.  
  80.         (set #where-help
  81.             (cat "\nDomyôlnie, miejscem dla rozkazów CLI jest"
  82.            " logiczny katalog C:. Moûna jednak umieôciê"
  83.            " rozkazy w dowolnym miejscu tak dîugo, jak"
  84.            " bëdzie ono w ôcieûce wyszukiwania"
  85.            " (ustawianej rozkazem \"Path\").\n\n"))
  86.  
  87.         (set #script
  88.             (cat "Czy mam dodaê skróty (\"aliasy\") do pliku " @script-dest "?"))
  89.  
  90.         (set #script-help
  91.             (cat "\nAby uczyniê RXControl bardziej"
  92.            " zgodnym z typowym systemem, pewne"
  93.            " skróty emulujâce rozkazy z katalogu"
  94.            " SYS:Rexxc mogâ zostaê doîâczone do"
  95.            " pliku Shell-Startup."))
  96.  
  97.         (set #which-commands
  98.             (cat "Które rozkazy z pakietu powinny zostaê zaistalowane?"))
  99.  
  100.         (set #which-commands-help
  101.             (cat "\n\n\"ChangeFont\" zamienia \"topaz.font\" na czcionkë wybranâ"
  102.            " przez uûytkownika;"
  103.            "\n\n\"ClickStart\" wîâcza/wyîâcza funkcje AmigaDOS;"
  104.            "\n\n\"Examine\" okreôla typy plików;"
  105.            "\n\n\"For\" wykonuje podany rozkaz dla wielu argumentów;"
  106.            "\n\n\"RXControl\" pozwala na kotrolë ARexx'a;"
  107.            "\n\n\"Time\" mierzy czas wykonania rozkazu;"
  108.            "\n\n\"Touch\" uaktualnia datë modyfikacji pliku.\n\n\n"))
  109.  
  110.     )
  111. )
  112.  
  113. ; ***************************************************************************
  114. ; Install MCommands
  115.  
  116. ; Check AmigaDOS version
  117. (set #version (/ (getversion) 65536))
  118. (if (< #version 37)
  119.     (
  120.         (abort #bad-kick)
  121.     )
  122. )
  123.  
  124. (message #welcome)
  125.  
  126. (welcome)
  127. (set old_level @user-level)
  128.  
  129. (user 2)
  130. (set #mcommands-dir
  131.     (askdir
  132.         (prompt #where-commands)
  133.         (help #where-help)
  134.         (default @default-dest))
  135. )
  136.  
  137. ; Choose commands
  138. (if (< #version 39)
  139.     (
  140.         (set commands
  141.             (askoptions
  142.                 (prompt #which-commands)
  143.                 (help #which-commands-help @askoptions-help)
  144.                 (choices
  145.                     "ChangeFont"
  146.                     "ClickStart"
  147.                     "For"
  148.                     "RXControl"
  149.                     "Time"
  150.                     "Touch")
  151.             )
  152.         )
  153.         (set install-rx (IN commands 3))
  154.     )
  155.     (
  156.         (set commands
  157.             (askoptions
  158.                 (prompt #which-commands)
  159.                 (help #which-commands-help @askoptions-help)
  160.                 (choices
  161.                     "ChangeFont"
  162.                     "ClickStart"
  163.                     "Examine"
  164.                     "For"
  165.                     "RXControl"
  166.                     "Time"
  167.                     "Touch")
  168.             )
  169.         )
  170.         (set install-rx (IN commands 4))
  171.     )
  172. )
  173.  
  174. ; Do copy
  175. (user old_level)
  176. (set n 0)
  177. (if (< #version 39)
  178.     (while
  179.         (set comm
  180.             (select n
  181.                 "ChangeFont"
  182.                 "ClickStart"
  183.                 "For"
  184.                 "RXControl"
  185.                 "Time"
  186.                 "Touch"
  187.                 "")
  188.         )
  189.         (
  190.             (if (IN commands n)
  191.                 (copyfiles
  192.                     (source (cat #comm-dir comm))
  193.                     (dest #mcommands-dir)
  194.                 )
  195.             )
  196.             (set n (+ n 1))
  197.             (complete (* n 14))
  198.         )
  199.     )
  200. ; 3.0 Install
  201.     (while
  202.         (set comm
  203.             (select n
  204.                 "ChangeFont"
  205.                 "ClickStart"
  206.                 "Examine"
  207.                 "For"
  208.                 "RXControl"
  209.                 "Time"
  210.                 "Touch"
  211.                 "")
  212.         )
  213.         (
  214.             (if (IN commands n)
  215.                 (copyfiles
  216.                     (source (cat #comm-dir comm))
  217.                     (dest #mcommands-dir)
  218.                 )
  219.             )
  220.             (set n (+ n 1))
  221.             (complete (* n 12))
  222.         )
  223.     )
  224. )
  225.  
  226. ; Append RX-Startup if RXControl was chosen
  227. (if install-rx
  228.     (if (askbool
  229.                 (prompt #script)
  230.                 (help #script-help)
  231.             )
  232.         (textfile
  233.             (dest @script-dest)
  234.             (include @script-dest)
  235.             (include #script-name)
  236.         )
  237.     )
  238. )
  239.  
  240. (set @default-dest #mcommands-dir)
  241. (complete 100)
  242. (exit)
  243.